From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 23 Dec 1993 04:55:44 +0000 (+0000)
Subject: (outline-copy-exposed): Don't use replace-regexp.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~93750
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=23e62b22f520c784c6abee5394f56b1de5941214;p=emacs.git

(outline-copy-exposed): Don't use replace-regexp.
---

diff --git a/lisp/allout.el b/lisp/allout.el
index b76d90c7b2d..1dd8757b306 100644
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -11,7 +11,7 @@
 ;;;_  - Author: Ken Manheimer <klm@nist.gov>
 ;;;_  - Maintainer: Ken Manheimer <klm@nist.gov>
 ;;;_  - Created: Dec 1991 - first release to usenet
-;;;_  - Version: $Id: allout.el,v 1.2 1993/06/07 18:48:08 rms Exp jimb $||
+;;;_  - Version: $Id: allout.el,v 1.3 1993/06/09 11:51:08 jimb Exp $||
 ;;;_  - Keywords: outline mode
 
 ;;;_  - LCD Archive Entry
@@ -19,7 +19,7 @@
 ;; LCD Archive Entry:
 ;; allout|Ken Manheimer|klm@nist.gov
 ;; |A more thorough outline-mode
-;; |27-May-1993|$Id: allout.el,v 1.2 1993/06/07 18:48:08 rms Exp jimb $||
+;; |27-May-1993|$Id: allout.el,v 1.3 1993/06/09 11:51:08 jimb Exp $||
 
 ;;;_  - Description
 ;; A full-fledged outline mode, based on the original rudimentary
@@ -2465,7 +2465,9 @@ parameterized communication between the two, if suitable.")
     (pop-to-buffer workbuf)
     (erase-buffer)
     (insert-buffer buf)
-    (replace-regexp "\^M[^\^M\^J]*" "")
+    ;; (replace-regexp "\^M[^\^M\^J]*" "")
+    (while (re-search-forward "\^M[^\^M\^J]*" nil t)
+      (replace-match "" nil nil))
     (goto-char (point-min))
     )
   )